http://www.cnblogs.com/champion8/p/5569930.html

在Delphi的窗口单元中，如何调用其它窗口的单元。(转载)  .  在Delphi中简单的调用单元  unit实例   一,新建一个工程文件,默认的文件是unit1,代码如下:unit Unit1;  interface  uses    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,     Dialogs, StdCtrls;  type     TForm1 = class(TForm)       Button1: TButton;       Edit1: TEdit;      procedure Button1Click(Sender: TObject);    private      { Private declarations }    public      { Public declarations }    end;  var     Form1: TForm1;  implementation  uses Unit2;  {$R *.dfm}  procedure TForm1.Button1Click(Sender: TObject);  var     nTemp:integer;  begin     nTemp:=add(3,4);    //也可以这样nTemp:=unit2.add(3,4);     edit1.Text:=inttostr(nTemp);  end;  end.     2,新建一个unit,默认名称是unit2,代码如下:  unit Unit2;  interface    uses windows,messages, SysUtils, Variants, Classes;    function add(a,b:integer):integer;  implementation  function add(a,b:integer):integer;  begin     result:=a+b;  end;  end.     从这里我们可以看到,单元的引用是非常简单的.  我们的unit2只是一个代码单元,没有窗体.在interface节中我们相当于声明了单元的对外可见部分,在implementation中,定义了实现部分.  在unit1当中,我们引用unit2后,直接可以调用add函数了,当然,也可以在前面加上unit2.add()这样的形式.  .  在这个单元中,我们可以把一些公用函数,类等东西放进去,实现程序的模块化.便于程序结构明晰.也便于程序维护。